﻿Public Class FrmBuscarBase

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub


    Private Sub txtTextoABuscar_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTextoABuscar.KeyUp
        If e.KeyCode = Keys.Enter Then
            buscar()
        End If
    End Sub

    Protected Sub buscar()

    End Sub

    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        buscar()
    End Sub

    Private Sub FrmBuscarBase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each campo As Control In Me.Controls
            If campo.TabIndex = 0 Then
                campo.Focus()
                Exit Sub
            End If
        Next
    End Sub
End Class